
 
 
 
 B u t t o n   1   L a b e l   R e d B u t t o n 
 
 B u t t o n   R e d B u t t o n   C o l o r   R e d 
 
 
 
 L a b e l   R e d B u t t o n 
 
 	 V a r i a b l e   N u m e r i c   n u m e r o   =   0 
 
 	 V a r i a b l e   N u m e r i c   c o n t a t o r e   =   0 
 
 	 V a r i a b l e   N u m e r i c   f l a g 
 
 	 
 
 	 F o r   v 1   =   1   T o   1 0 0 
 
 	 	 n u m e r o   =   n u m e r o   +   1 
 
 	 	 f l a g   =   0 
 
 	 	 F o r   v 2   =   2   T o   n u m e r o   -   1 
 
 	 	 	 I f   M o d ( n u m e r o ,   v 2 )   =   0 
 
 	 	 	 	 f l a g   =   1 
 
 	 	 	 E n d I f 
 
 	 	 N e x t 
 
 	 	 I f   f l a g   =   0 
 
 	 	 	 c o n t a t o r e   =   c o n t a t o r e   +   1 
 
 	 	 	 P r i n t   " N u m e r o   p r i m o   "   +   c o n t a t o r e   +   " :   "   +   n u m e r o   +   C R L F 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 
 
 